delphi Pointer 转成string

var s: string; p: pointer; s := PChar(p);前提p指向的字符串要以#0结尾。 ...